home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD BIT 75
/
CD BIT 75.iso
/
Software
/
LogOut
/
disk1
/
_SETUP.1
/
GCondom7.exe
/
0
/
RCDATA
/
TFRMFILTROCONTACTOS
/
TFRMFILTROCONTACTOS.txt
Wrap
Text File
|
2004-10-21
|
20KB
|
726 lines
object frmFiltroContactos: TfrmFiltroContactos
Left = 215
Top = 122
BorderStyle = bsNone
Caption = 'frmFiltroContactos'
ClientHeight = 524
ClientWidth = 692
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 13
object Shape1: TShape
Left = 0
Top = 0
Width = 692
Height = 524
Align = alClient
end
object Label2: TLabel
Left = 8
Top = 8
Width = 230
Height = 22
Caption = 'Impress�es de Forn / Func'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 10
Top = 65
Width = 31
Height = 13
Caption = 'Nome:'
Transparent = True
end
object Label6: TLabel
Left = 10
Top = 85
Width = 57
Height = 13
Caption = 'C�d. Postal:'
Transparent = True
end
object Label8: TLabel
Left = 10
Top = 45
Width = 36
Height = 13
Caption = 'C�digo:'
Transparent = True
end
object Label15: TLabel
Left = 220
Top = 47
Width = 15
Height = 13
Caption = 'at�'
Transparent = True
end
object Label17: TLabel
Left = 329
Top = 68
Width = 15
Height = 13
Caption = 'at�'
Transparent = True
end
object Label22: TLabel
Left = 10
Top = 150
Width = 53
Height = 13
Caption = 'Ordena��o'
Transparent = True
end
object Label23: TLabel
Left = 156
Top = 494
Width = 131
Height = 13
Caption = 'Imprimir na forma de ...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object RxSpeedButton2: TRxSpeedButton
Left = 560
Top = 488
Width = 110
Height = 25
Hint = 'Correspond�ncia'
DropDownMenu = RxPopupMenu2
Caption = 'Correspond�ncia'
end
object RxLabel2: TRxLabel
Left = 662
Top = 134
Width = 10
Height = 17
Alignment = taRightJustify
Caption = '0'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
end
object Shape2: TShape
Left = 613
Top = 19
Width = 75
Height = 25
Brush.Color = clGray
Pen.Color = clGray
end
object Label20: TLabel
Left = 10
Top = 105
Width = 74
Height = 13
Caption = 'Saldo CC entre:'
Transparent = True
end
object Label21: TLabel
Left = 220
Top = 108
Width = 15
Height = 13
Caption = 'at�'
Transparent = True
end
object DBGrid1: TDBGrid
Left = 5
Top = 176
Width = 673
Height = 305
Color = clInfoBk
Ctl3D = False
DataSource = DataSource1
FixedColor = 13551795
Options = [dgTitles, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ReadOnly = True
TabOrder = 10
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'C�digo'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'Descritivo'
Title.Caption = 'Nome'
Width = 115
Visible = True
end
item
Expanded = False
FieldName = 'Telefone'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'Contribuinte'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'Empregado'
Title.Caption = 'Funcion�rio'
Visible = True
end
item
Expanded = False
FieldName = 'Fornecedor'
Visible = True
end
item
Expanded = False
FieldName = 'Saldo'
Title.Alignment = taCenter
Width = 100
Visible = True
end>
end
object BitBtn2: TBitBtn
Left = 296
Top = 488
Width = 75
Height = 25
Hint = 'Listagem'
Caption = 'Lista&gem'
ParentShowHint = False
ShowHint = True
TabOrder = 11
OnClick = BitBtn2Click
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000060606060606060606060606060
6060606060606060606060606060606060303030000000FFFFFFFFFFFF000000
90909060808020BF9F409F5F409F5F409F5F409F5F409F5F00BFBF90B0B06060
60000000FFFFFFFFFFFF00000090909090909060BFBF60BFBF60BFBF60BFBF60
BFBF60BFBF60BFBF90B0B0606060000000FFFFFFFFFFFFFFFFFF0000007F7F7F
7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F3F3F3FFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFF3F3F3FBFBFBF3FFFFF30EFEF60DFDF60DFDF60
DFDF60DFDF60DFDF3FFFFFBFBFBF3F3F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3F3F3FBFBFBF7FFFFF7FFFFF7FFFFF7FFFFF7FFFFF7FFFFF7FFFFFBFFFFFBFBF
BF3F3F3FFFFFFFFFFFFFFFFFFFFFFFFF00000060606060606060606060606060
6060606060606060606060606060606060303030FFFFFFFFFFFFFFFFFF000000
90909060808020BF9F409F5F409F5F409F5F409F5F409F5F00BFBF90B0B06060
60000000FFFFFFFFFFFF00000090909090909060BFBF60BFBF60BFBF60BFBF60
BFBF60BFBF60BFBF90B0B0606060000000FFFFFFFFFFFFFFFFFF0000007F7F7F
7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F3F3F3FFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFF3F3F3FBFBFBF3FFFFF30EFEF60DFDF60DFDF60
DFDF60DFDF60DFDF3FFFFFBFBFBF3F3F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
3F3F3FBFBFBF7FFFFF7FFFFF7FFFFF7FFFFF7FFFFF7FFFFF7FFFFFBFFFFFBFBF
BF3F3F3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000
0000000000000000000000000000000000000000000000FFFFFF}
end
object BitBtn7: TBitBtn
Left = 608
Top = 14
Width = 75
Height = 25
Caption = '&Sair'
Default = True
ModalResult = 1
TabOrder = 12
OnClick = BitBtn7Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
object Edit1: TEdit
Left = 104
Top = 44
Width = 100
Height = 21
Color = clBtnFace
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
end
object Edit2: TEdit
Left = 248
Top = 44
Width = 100
Height = 21
Color = clBtnFace
Ctl3D = True
ParentCtl3D = False
TabOrder = 1
end
object Edit5: TEdit
Left = 104
Top = 65
Width = 220
Height = 21
Color = clBtnFace
Ctl3D = True
ParentCtl3D = False
TabOrder = 2
end
object Edit6: TEdit
Left = 350
Top = 65
Width = 220
Height = 21
Color = clBtnFace
Ctl3D = True
ParentCtl3D = False
TabOrder = 3
end
object Edit7: TEdit
Left = 104
Top = 85
Width = 100
Height = 21
Color = clBtnFace
Ctl3D = True
ParentCtl3D = False
TabOrder = 4
end
object BitBtn8: TBitBtn
Left = 608
Top = 48
Width = 75
Height = 25
Caption = '&Filtrar'
TabOrder = 13
OnClick = BitBtn8Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333888003000003333
300088F888883F333888E00BFBFB033333338883333F8F33333FE0BFBF000333
330088F3338883F33388E0FBFBFBF033330088F3333FF8FFF388E0BFBF000000
333388F3338888883F3FE0FBFBFBFBFB039988F33FFFFFFF8388E0BF00000000
339988FF888888883388000BFB03333333338883FF833333333F333000333333
3300333888333333338833333333333333003333333333333388333333333333
333333333333333333FF33333333333330003333333333333888333333333333
3000333333333333388833333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn9: TBitBtn
Left = 608
Top = 72
Width = 75
Height = 25
Caption = '&Limpar'
TabOrder = 14
OnClick = BitBtn9Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF00000444
4444FFF0888884444444FF08888884444444F08888800B444444088880BB00BB
B0FF00333B0BB0BBB0FFFF33BF00BB0BB0FFFFFF3BB0BB0B00FFFFFFF3BB0008
0FFFFFFFFF33B88300FFFFFFFFFF330030FFFFFFFFFF0030030FFFFFFFFFF003
0030FFFFFFFFFF003003FFFFFFFFFFFF0300FFFFFFFFFFFFF030}
end
object BitBtn3: TBitBtn
Left = 386
Top = 488
Width = 75
Height = 25
Hint = 'Conta Corrente'
Caption = '&Cont. Corr.'
ParentShowHint = False
ShowHint = True
TabOrder = 15
OnClick = BitBtn3Click
end
object ComboBox4: TComboBox
Left = 104
Top = 150
Width = 110
Height = 21
Hint = 'Muda a ordena��o da lista'
Style = csDropDownList
Color = clInfoBk
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 9
OnChange = ComboBox4Change
Items.Strings = (
'C�digo'
'Nome'
'Empregado'
'Fornecedor')
end
object CheckBox1: TCheckBox
Left = 104
Top = 128
Width = 73
Height = 17
Caption = 'Empregado'
Color = clWhite
ParentColor = False
TabOrder = 7
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 248
Top = 128
Width = 73
Height = 17
Caption = 'Fornecedor'
Color = clWhite
ParentColor = False
TabOrder = 8
OnClick = CheckBox2Click
end
object BitBtn1: TBitBtn
Left = 474
Top = 488
Width = 75
Height = 25
Hint = 'Ficha'
Caption = 'Fi&cha'
ParentShowHint = False
ShowHint = True
TabOrder = 16
OnClick = BitBtn1Click
end
object BitBtn4: TBitBtn
Left = 608
Top = 96
Width = 75
Height = 25
Hint = 'Retira o item'#13#10'seleccionado '#13#10'da lista'
Caption = '&Retirar'
ParentShowHint = False
ShowHint = True
TabOrder = 17
OnClick = BitBtn4Click
Glyph.Data = {
42040000424D4204000000000000420000002800000020000000100000000100
1000030000000004000000000000000000000000000000000000007C0000E003
00001F000000E03DE03DE03D000000000000000000000000000000000000E03D
E03DE03DE03DE03DE03DE03DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DFF7F
E03DE03DE03DE03DE03DE03D0000FF7FEF3DEF3DEF3DEF3DEF3DEF3D0000E03D
E03DE03DE03DE03DE03DE03DEF3DFF7FE03DFF7FE03DFF7FE03DFF7FEF3DFF7F
E03DE03DE03DE03DE03DE03D0000FF7F0000F75E0000F75E0000EF3D0000E03D
E03DE03DE03DE03DE03DE03DEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7F
E03DE03DE03DE03DE03DE03D0000FF7F0000F75E0000EF3D0000EF3D0000E03D
E03DE03DE03DE03DE03DE03DEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7F
E03DE03DE03DE03DE03DE03D0000FF7F0000F75E0000F75E0000EF3D0000E03D
E03DE03DE03DE03DE03DE03DEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7F
E03DE03DE03DE03DE03DE03D0000FF7F0000F75E0000EF3D0000EF3D0000E03D
E03DE03DE03DE03DE03DE03DEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7F
E03DE03DE03DE03DE03DE03D0000FF7F0000F75E0000F75E0000EF3D0000E03D
E03DE03DE03DE03DE03DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7F
E03DFF7FE03DE03D0000E03D0000FF7F0000F75E0000EF3D0000EF3D0000E03D
0000E03DE03DE03DEF3DE03DEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7F
EF3DE03DE03DE03DE03D00000000FF7F0000F75E0000F75E0000EF3D00000000
E03DE03DE03DE03DE03DEF3DEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DEF3D
E03DE03DE03DE03DE03DE03D0000FF7F0000F75E0000EF3D0000EF3D0000E03D
E03DE03DE03DE03DE03DE03DEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7F
E03DE03DE03DE03DE03DE03D0000EF3D0000EF3D0000EF3D0000EF3D0000E03D
E03DE03DE03DE03DE03DE03DEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7FEF3DFF7F
FF7FE03DE03DE03DE03D00000000000000000000000000000000000000000000
E03DE03DE03DE03DE03DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3D
FF7FE03DE03DE03DE03D0000FF7FF75EF75EF75EEF3DEF3DEF3DEF3DEF3D0000
E03DE03DE03DE03DE03DEF3DFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FEF3D
FF7FE03DE03DE03DE03D00000000000000000000000000000000000000000000
E03DE03DE03DE03DE03DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3DEF3D
E03DE03DE03DE03DE03DE03DE03DE03D0000EF3DEF3DEF3D0000E03DE03DE03D
E03DE03DE03DE03DE03DE03DE03DE03DEF3DFF7FFF7FFF7FEF3DFF7FE03DE03D
E03DE03DE03DE03DE03DE03DE03DE03D00000000000000000000E03DE03DE03D
E03DE03DE03DE03DE03DE03DE03DE03DEF3DEF3DEF3DEF3DEF3DE03DE03DE03D
E03DE03DE03D}
NumGlyphs = 2
end
object CurrencyEdit1: TCurrencyEdit
Left = 104
Top = 105
Width = 110
Height = 21
AutoSize = False
Color = clBtnFace
DisplayFormat = ',0.00;-,0.00'
TabOrder = 5
end
object CurrencyEdit2: TCurrencyEdit
Left = 240
Top = 105
Width = 110
Height = 21
AutoSize = False
Color = clBtnFace
DisplayFormat = ',0.00;-,0.00'
TabOrder = 6
end
object OpenDialog1: TOpenDialog
Filter = 'Ficheiros RTF|*.rtf'
Left = 417
Top = 9
end
object Table1: TTable
DatabaseName = 'Database1'
Filtered = True
FilterOptions = [foCaseInsensitive]
TableName = 'Contactos.DB'
Left = 384
Top = 8
object Table1ID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object Table1Cdigo: TStringField
FieldName = 'C�digo'
Required = True
end
object Table1Descritivo: TStringField
FieldName = 'Descritivo'
Size = 50
end
object Table1Endereo: TMemoField
FieldName = 'Endere�o'
BlobType = ftMemo
Size = 240
end
object Table1Cp: TStringField
FieldName = 'Cp'
Size = 10
end
object Table1Cp1: TStringField
FieldName = 'Cp1'
Size = 25
end
object Table1Telefone: TStringField
FieldName = 'Telefone'
Size = 25
end
object Table1Fax: TStringField
FieldName = 'Fax'
Size = 25
end
object Table1Email: TStringField
FieldName = 'Email'
Size = 30
end
object Table1SeguranaSocial: TStringField
FieldName = 'Seguran�a Social'
Size = 15
end
object Table1Contribuinte: TStringField
FieldName = 'Contribuinte'
Size = 10
end
object Table1TipoRendimento: TStringField
FieldName = 'Tipo Rendimento'
Size = 3
end
object Table1Empregado: TStringField
FieldName = 'Empregado'
Size = 3
end
object Table1Obs: TMemoField
FieldName = 'Obs.'
BlobType = ftMemo
Size = 240
end
object Table1Tlm: TStringField
FieldName = 'Tlm'
Size = 25
end
object Table1Seguradora: TStringField
FieldName = 'Seguradora'
Size = 30
end
object Table1MoradaSeguradora: TMemoField
FieldName = 'Morada Seguradora'
BlobType = ftMemo
Size = 240
end
object Table1CpSeguradora: TStringField
FieldName = 'Cp Seguradora'
Size = 10
end
object Table1Cp1Seguradora: TStringField
FieldName = 'Cp1 Seguradora'
Size = 25
end
object Table1TelefoneSeguradora: TStringField
FieldName = 'Telefone Seguradora'
Size = 25
end
object Table1FaxSeguradora: TStringField
FieldName = 'Fax Seguradora'
Size = 25
end
object Table1EmailSeguradora: TStringField
FieldName = 'Email Seguradora'
Size = 30
end
object Table1Aplice: TStringField
FieldName = 'Ap�lice'
end
object Table1Incio: TDateField
FieldName = 'In�cio'
end
object Table1Fim: TDateField
FieldName = 'Fim'
end
object Table1Prmio1: TFloatField
FieldName = 'Pr�mio1'
end
object Table1Prmio2: TFloatField
FieldName = 'Pr�mio2'
end
object Table1ValorSeguro1: TFloatField
FieldName = 'Valor Seguro1'
end
object Table1ValorSeguro2: TFloatField
FieldName = 'Valor Seguro2'
end
object Table1Foto: TStringField
FieldName = 'Foto'
Size = 255
end
object Table1Salrio: TFloatField
FieldName = 'Sal�rio'
end
object Table1NIB: TStringField
FieldName = 'NIB'
Size = 23
end
object Table1Ocorrncias: TMemoField
FieldName = 'Ocorr�ncias'
BlobType = ftMemo
Size = 240
end
object Table1PrevisoAumento: TFloatField
FieldName = 'Previs�o Aumento'
end
object Table1TipoPagamento: TStringField
FieldName = 'Tipo Pagamento'
Size = 15
end
object Table1ModoPagamento: TStringField
FieldName = 'Modo Pagamento'
Size = 15
end
object Table1Fornecedor: TStringField
FieldName = 'Fornecedor'
Size = 3
end
object Table1Stretch: TBooleanField
FieldName = 'Stretch'
end
object Table1Salrio2: TFloatField
FieldName = 'Sal�rio2'
end
object Table1Http: TStringField
FieldName = 'Http'
Size = 40
end
object Table1Saldo: TFloatField
FieldName = 'Saldo'
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 352
Top = 8
end
object Table2: TTable
DatabaseName = 'Database1'
Filtered = True
IndexName = 'iData'
TableName = 'CCContactos.DB'
Left = 448
Top = 8
end
object RxPopupMenu2: TRxPopupMenu
Left = 504
Top = 8
object Circulares1: TMenuItem
Caption = 'Circulares'
OnClick = Circulares1Click
end
object EmBranco1: TMenuItem
Caption = 'Em Branco'
OnClick = EmBranco1Click
end
object N2: TMenuItem
Caption = '-'
end
object Etiquetas1: TMenuItem
Caption = 'Etiquetas'
OnClick = Etiquetas1Click
end
object EtiquetasCondomnio1: TMenuItem
Caption = 'Etiquetas Condom�nio'
OnClick = EtiquetasCondomnio1Click
end
object EtiquetasAdministrao1: TMenuItem
Caption = 'Etiquetas Administra��o'
OnClick = EtiquetasAdministrao1Click
end
object N1: TMenuItem
Caption = '-'
end
object Registos1: TMenuItem
Caption = 'Registo Colectivo'
OnClick = Registos1Click
end
object RegistoIndividual1: TMenuItem
Caption = 'Registo Individual'
OnClick = RegistoIndividual1Click
end
end
end